setClass("DimOneParamTestRunner",contains="VOneParamTestRunner",
		representation(
				.dummy="ANY"
		),
		prototype=prototype(
				.description="Dimension One parameter test Runner Class"
		)
)  

#methods
setMethod("changeParameters",
		signature="DimOneParamTestRunner",
		definition=function(.Object,paramValue,...){
			#.Object@.compList 
			retList <-lapply( 1:length(.Object@.compList), FUN=function(n,orgList){
						
						oldReducer <-orgList[[n]]@.reducer
						newReducer <-changeDimChooser(oldReducer,new("constDimChooser",paramValue,paramValue))
						changedListComputer <-changeReducer(orgList[[n]],newReducer)
						
						return(changedListComputer)
					},.Object@.compList)
			
			return(retList)
		})